(LAP ALT SUBR) 
(PUSH P 1) 
(MOVE 1 0 P) 
(JUMPE 1 G0186) 
(HRRZ@ 1 0 P) 
(JUMPN 1 G0185) 
G0186 
(MOVE 1 0 P) 
(JRST 0 G0184) 
G0185 
(HRRZ@ 1 0 P) 
(HRRZ@ 1 1) 
(CALL 1 (E ALT)) 
(MOVE 2 1) 
(HLRZ@ 1 0 P) 
(CALL 2 (E CONS)) 
G0184 
(SUB P (C 0 0 1 1)) 
(POPJ P) 
NIL 
(LAP REV SUBR) 
(PUSH P 1) 
(PUSH P 2) 
(MOVE 1 -1 P) 
(JUMPN 1 G0188) 
(MOVE 1 0 P) 
(JRST 0 G0187) 
G0188 
(HLRZ@ 1 -1 P) 
(MOVE 2 0 P) 
(CALL 2 (E CONS)) 
(MOVE 2 1) 
(HRRZ@ 1 -1 P) 
(CALL 2 (E REV)) 
G0187 
(SUB P (C 0 0 2 2)) 
(POPJ P) 
NIL 
(LAP SUBA SUBR) 
(PUSH P 1) 
(PUSH P 2) 
(PUSH P 3) 
(MOVE 1 0 P) 
(CALL 1 (E ATOM)) 
(JUMPE 1 G0190) 
(MOVE 1 -1 P) 
(MOVE 2 0 P) 
(CAME 1 2) 
(JRST 0 G0192) 
(MOVE 1 -2 P) 
(JRST 0 G0191) 
G0192 
(MOVE 1 0 P) 
G0191 
(JRST 0 G0189) 
G0190 
(MOVE 1 -2 P) 
(MOVE 2 -1 P) 
(HLRZ@ 3 0 P) 
(CALL 3 (E SUBA)) 
(PUSH P 1) 
(MOVE 1 -3 P) 
(MOVE 2 -2 P) 
(HRRZ@ 3 -1 P) 
(CALL 3 (E SUBA)) 
(MOVE 2 1) 
(MOVE 1 0 P) 
(SUB P (C 0 0 1 1)) 
(CALL 2 (E CONS)) 
G0189 
(SUB P (C 0 0 3 3)) 
(POPJ P) 
NIL 
(LAP ASSS SUBR) 
(PUSH P 1) 
(PUSH P 2) 
(MOVE 1 0 P) 
(JUMPE 1 G0193) 
(MOVE 1 -1 P) 
(HLRZ@ 2 0 P) 
(HLRZ@ 2 2) 
(CAME 1 2) 
(JRST 0 G0194) 
(HLRZ@ 1 0 P) 
(JRST 0 G0193) 
G0194 
(MOVE 1 -1 P) 
(HRRZ@ 2 0 P) 
(CALL 2 (E ASSS)) 
G0193 
(SUB P (C 0 0 2 2)) 
(POPJ P) 
NIL 
(LAP EQU SUBR) 
(PUSH P 1) 
(PUSH P 2) 
(MOVE 1 -1 P) 
(MOVE 2 0 P) 
(CAMN 1 2) 
(JRST 0 G0197) 
(MOVE 1 -1 P) 
(CALL 1 (E ATOM)) 
(JUMPN 1 G0195) 
(MOVE 1 0 P) 
(CALL 1 (E ATOM)) 
(JUMPN 1 G0195) 
(HLRZ@ 1 -1 P) 
(HLRZ@ 2 0 P) 
(CALL 2 (E EQU)) 
(JUMPE 1 G0195) 
(HRRZ@ 1 -1 P) 
(HRRZ@ 2 0 P) 
(CALL 2 (E EQU)) 
(JUMPE 1 G0195) 
G0197 
(MOVEI 1 (QUOTE T)) 
(JRST 0 G0196) 
G0195 
(MOVEI 1 0) 
G0196 
(SUB P (C 0 0 2 2)) 
(POPJ P) 
NIL 
(LAP FLAT SUBR) 
(PUSH P 1) 
(PUSH P 2) 
(MOVE 1 -1 P) 
(CALL 1 (E ATOM)) 
(JUMPE 1 G0199) 
(MOVE 1 -1 P) 
(MOVE 2 0 P) 
(CALL 2 (E CONS)) 
(JRST 0 G0198) 
G0199 
(HRRZ@ 1 -1 P) 
(MOVE 2 0 P) 
(CALL 2 (E FLAT)) 
(MOVE 2 1) 
(HLRZ@ 1 -1 P) 
(CALL 2 (E FLAT)) 
G0198 
(SUB P (C 0 0 2 2)) 
(POPJ P) 
NIL 
(LAP GLUB SUBR) 
(PUSH P 1) 
(MOVEI 1 (QUOTE A)) 
(SUB P (C 0 0 1 1)) 
(POPJ P) 
NIL 
(LAP SUBB SUBR) 
(PUSH P 1) 
(PUSH P 2) 
(PUSH P 3) 
(MOVE 1 0 P) 
(CALL 1 (E ATOM)) 
(JUMPE 1 G0201) 
(MOVE 1 -1 P) 
(MOVE 2 0 P) 
(CAME 1 2) 
(JRST 0 G0203) 
(MOVE 1 -2 P) 
(JRST 0 G0202) 
G0203 
(MOVE 1 0 P) 
G0202 
(JRST 0 G0200) 
G0201 
(MOVE 1 -2 P) 
(MOVE 2 -1 P) 
(HLRZ@ 3 0 P) 
(CALL 3 (E SUBB)) 
(PUSH P 1) 
(MOVE 1 -3 P) 
(MOVE 2 -2 P) 
(HRRZ@ 3 -1 P) 
(CALL 3 (E SUBB)) 
(PUSH P 1) 
(MOVE 1 -1 P) 
(HLRZ@ 2 -2 P) 
(CAME 1 2) 
(JRST 0 G0205) 
(MOVE 1 0 P) 
(HRRZ@ 2 -2 P) 
(CAME 1 2) 
(JRST 0 G0205) 
(MOVE 1 -2 P) 
(JRST 0 G0204) 
G0205 
(MOVE 1 -1 P) 
(MOVE 2 0 P) 
(CALL 2 (E CONS)) 
G0204 
(SUB P (C 0 0 2 2)) 
G0200 
(SUB P (C 0 0 3 3)) 
(POPJ P) 
NIL